home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / Bonus / VCLZip / kpdemosd.exe / ZipUtil / Extract.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2000-05-24  |  2.2 KB  |  73 lines
  1. { ********************************************************************************************************* }
  2. {                                                                                                           }
  3. {      COPYRIGHT 1995 Kevin Boylan                                                                           }
  4. {     Source File: Extract.PAS  - For VCLZip                                                                }
  5. {     Description: Extract Form for the VCLZip Example Program                                              }
  6. {     Date:        Wed Nov 8 1995                                                                           }
  7. {     Author:      Kevin Boylan, boylank@bigfoot.com                                                        }
  8. {                                                                                                           }
  9. {                                                                                                           }
  10. { ********************************************************************************************************* }
  11.  
  12. unit Extract;
  13.  
  14. { $Log: }
  15.  
  16. interface
  17.  
  18. uses
  19. {$IFDEF WIN32}
  20.   Windows,
  21. {$ELSE}
  22.   WinTypes, WinProcs,
  23. {$ENDIF}
  24.   Classes, Graphics, Forms, Controls, Buttons,
  25.   StdCtrls, ExtCtrls, FileCtrl;
  26.  
  27. type
  28.   TExtractDlg = class(TForm)
  29.     OKBtn: TBitBtn;
  30.     CancelBtn: TBitBtn;
  31.     Bevel1: TBevel;
  32.     GroupBox1: TGroupBox;
  33.     SelectedFiles: TRadioButton;
  34.     UseMask: TRadioButton;
  35.     ExtractMask: TEdit;
  36.     Destination: TGroupBox;
  37.     DestDir: TEdit;
  38.     DirBtn: TBitBtn;
  39.     GroupBox2: TGroupBox;
  40.     Overwrite: TComboBox;
  41.     Password: TEdit;
  42.     RecreateDir: TCheckBox;
  43.     Label1: TLabel;
  44.     Label2: TLabel;
  45.     AllFilesRBtn: TRadioButton;
  46.     RetainAttributesChk: TCheckBox;
  47.     RelDir: TEdit;
  48.     Label3: TLabel;
  49.     procedure DirBtnClick(Sender: TObject);
  50.   private
  51.     { Private declarations }
  52.   public
  53.     { Public declarations }
  54.   end;
  55.  
  56. var
  57.   ExtractDlg: TExtractDlg;
  58.  
  59. implementation
  60.  
  61. {$R *.DFM}
  62.  
  63. procedure TExtractDlg.DirBtnClick(Sender: TObject);
  64. var
  65.   tmpDir: String;
  66. begin
  67.   tmpDir := DestDir.Text;
  68.   If SelectDirectory(tmpDir, [sdAllowCreate, sdPerformCreate, sdPrompt], 0) then
  69.      DestDir.Text := tmpDir;
  70. end;
  71.  
  72. end.
  73.